Hallo Zusammen,
ich habe folgendes Problem:
Ich benutze bereits einen "Private Sub Worksheet_Change(ByVal Target As Range)" Code für das Datum in einer anderen Zelle.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("M2")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
Target.Offset(5, 0).Value = Date
Else
Target.Offset(5, 0).ClearContents
End If
End Sub
Nun wollte ich einen weiteren Code hinzufügen, der mir die Zahl 1 in die Zelle F15 einträgt wenn in Zelle A8 irgendetwas eingetragen wird.
Zusammen sieht es bei mir momentan so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("M2")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
Target.Offset(5, 0).Value = Date
Else
Target.Offset(5, 0).ClearContents
End If
If Intersect(Target, Range("A8")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
Range("F15") = 1
Else
Range("F15").ClearContents
End If
End Sub
Leider passiert nichts in Zelle F15.
Ich habe es davor auch schon mit einem Offset Wert für das Feld versucht.
Problem hier, war das die Zeilen teilweise vertikal wie auch horizontal verbunden sind und die Zahl dann wo anderst auftaucht als gewünscht.
Wichtig ist auch, das nach löschen der Zelle A8, die Zelle F15 auch gelöscht wird (deshalb der ClearContents Befehl).
Für eure hilfe würde ich mich sehr freuen.
Bin schon eine ganze Weile am rumprobieren, leider ohne Erfolg.
Grüße
Sascha
|